open();
run("Duplicate...", "title=[imagen original1]");
run("Duplicate...", "title=[imagen original1-1]");
run("Make Binary");
run("BinaryKillBorders ", "white top right bottom left");
//run("Threshold...");
setThreshold(230, 255);
run("Convert to Mask");
run("Analyze Particles...", "size=4-Infinity circularity=0.00-1.00 show=Outlines display include summarize add");
selectWindow("Drawing of imagen original1-1");
imageCalculator("Subtract create", "Drawing of imagen original1-1","imagen original1");
//run("Image Calculator...", "image1=[Drawing of imagen original1-1] operation=Subtract image2=[imagen original1] create");
setAutoThreshold();
selectWindow("Drawing of imagen original1-1");
close();